' Test ae Sum gosub test B.txt 2018-02-07 adopted for BRUN from (flawed):
' yes this is dumb way to SUM, just testing a gosub
[
	inpn 0 quits, enter some number to get sum of all pos integers to it;n
	Jmp eq[0,n]
	GS sum\
	. The sum of first ;n; integers is ;sum_sum
	. 
]
. This ends the sum gosub test.
end

sum\
	sum_sum = 0
	sum_i = 0
	' and get sum in the variable table as 0
	[
		sum_i = a[sum_i,1]
		jmp gt[sum_i,n]
		sum_sum = a[sum_sum,sum_i]
	]
rtn